library(hemo)
h <- read.hemo("hemo.dat")
summary(h)
plot(h)


